From: Eli Zaretskii Date: Tue, 3 Jul 2001 12:39:17 +0000 (+0000) Subject: (locate-library): Enable code that looks for compressed X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~62852 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f1c53471a7eda50ac95f3961f57baadcd514e6e0;p=emacs.git (locate-library): Enable code that looks for compressed libraries if auto-compression-mode is on. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7b5c487834..e1259af3479 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-03 Eli Zaretskii + + * help.el (locate-library): Enable code that looks for compressed + libraries if auto-compression-mode is on. + 2001-07-02 Stefan Monnier * info.el (Info-clone-buffer-hook): Really unconditionally copy marker. diff --git a/lisp/help.el b/lisp/help.el index 945b168f881..c0447dcaedd 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1028,21 +1028,19 @@ and the file name is displayed in the echo area." (if nosuffix '("") '(".elc" ".el" "") -;;; load doesn't handle this yet. -;;; (let ((basic '(".elc" ".el" "")) -;;; (compressed '(".Z" ".gz" ""))) -;;; ;; If autocompression mode is on, -;;; ;; consider all combinations of library suffixes -;;; ;; and compression suffixes. -;;; (if (rassq 'jka-compr-handler file-name-handler-alist) -;;; (apply 'nconc -;;; (mapcar (lambda (compelt) -;;; (mapcar (lambda (baselt) -;;; (concat baselt compelt)) -;;; basic)) -;;; compressed)) -;;; basic)) - ))) + (let ((basic '(".elc" ".el" "")) + (compressed '(".Z" ".gz" ""))) + ;; If autocompression mode is on, + ;; consider all combinations of library suffixes + ;; and compression suffixes. + (if (rassq 'jka-compr-handler file-name-handler-alist) + (apply 'nconc + (mapcar (lambda (compelt) + (mapcar (lambda (baselt) + (concat baselt compelt)) + basic)) + compressed)) + basic))))) (or path load-path))) (and interactive-call (if result